(define t1 (print (car '(x y))))
(define t2 (print (car (cdr '(x y)))))
